Removing Menu Buttons(Copy, Print)

Hi Rene,

I don't have a routine to hand for Copy, Paste etc, but you should be able to modify these routines that disable options within the 'File' menu. Eg. change 'File@ to 'Edit' and adjust the item descriptions.<pre>
Sub DisableFileChoices()

' excludes Close, Save, Save As, Recently used, Exit

With Application.CommandBars("File").Controls

.item("New...").Enabled = False
.item("Open...").Enabled = False
.item("Save as HTML...").Enabled = False
.item("Save Workspace...").Enabled = False
.item("Page Setup...").Enabled = False
.item("Print Area").Enabled = False
.item("Print Preview").Enabled = False
.item("Print...").Enabled = False
.item("Send To").Enabled = False
.item("Properties").Enabled = False

End With

End Sub

Sub EnableFileChoices()

With Application.CommandBars("File").Controls

.item("New...").Enabled = True
.item("Open...").Enabled = True
.item("Save as HTML...").Enabled = True
.item("Save Workspace...").Enabled = True
.item("Page Setup...").Enabled = True
.item("Print Area").Enabled = True
.item("Print Preview").Enabled = True
.item("Print...").Enabled = True
.item("Send To").Enabled = True
.item("Properties").Enabled = True

End With

End Sub</pre>

HTH

PS Do you also want to disable the shortcut methods and the right-click mouse methods?


_________________<font color="blue"> «««<font color="red">¤<font color="blue"><font size=+1>Richie</font><font color="red">¤<font color="blue"> »»»</font>

</gif>
This message was edited by Richie(UK) on 2002-08-02 10:58

If you actually want to delete the icons from the toolbar, right click on the icon. In the drop-down box, left click on Customize. Right click again on the icon you want to remove and left click on Delete in the drop-down box.